#####################################################################
# $Id: Widget.pm,v 1.1.1.1 2006/03/20 04:08:45 jfb Exp $
#
# Widget.pm - basic class for anything that renders HTML in Epiphyte
#
#####################################################################

package Epiphyte::Widget;

use strict;
use vars qw(@ISA);


@ISA = qw(Exporter);


#####################################################################   
# new - class method
#
# Create a new Epiphyte widget object.
#####################################################################

sub new
{
	my ($class, $args) = @_;

	my $self = {
		_bgcolor	=>
		_fgcolor	=>
	};

	bless($self, $class);

	return ($self);
}

#####################################################################   
# bgcolor - object method
#
# Set or get the background color for this widget
#####################################################################

sub bgcolor
{
	return ($self->{_bgcolor});
}

#####################################################################   
# render - object method
#
#####################################################################

sub render
{
	my ($self) = @_;

	return 1;
}

1;
